
DEFINE BUFFER hwird FOR hwird_det.


FOR EACH hwird_det NO-LOCK WHERE hwird_det.hwird_nbr = "KA580008":
    
    CREATE hwird.
    ASSIGN
        hwird.hwird_nbr = "KA590004"
        hwird.hwird_part = hwird_det.hwird_part
        hwird.hwird_op  = hwird_det.hwird_op
        hwird.hwird_site = hwird_det.hwird_site
        hwird.hwird_loc = hwird_det.hwird_loc
        hwird.hwird_qty_req = hwird_det.hwird_qty_req
        hwird.hwird_qty_chg = hwird_det.hwird_qty_chg
        .
END.
